i4_wrap Function

function i4_wrap(ival, ilo, ihi)

************80

I4_WRAP forces an I4 to lie between given limits by wrapping.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	ival
integer(kind=4)				::	ilo
integer(kind=4)				::	ihi

Return Value integer(kind=4)

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	i4_modp
integer(kind=4),	public		::	jhi
integer(kind=4),	public		::	jlo
integer(kind=4),	public		::	wide